home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / data / nos / road3.plp < prev   
Text File  |  1995-08-13  |  6KB  |  192 lines
  1. /*    ＲＯＡＤ３／４の電話番号一覧選択    */
  2. %setTEL    {
  3.     SNDMSG({nyuryoku.snd});
  4.     footnote({ROAD3/4 }|BPS|{BPSｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
  5.     %a @input({ROAD3/4の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
  6.             ROAD3);
  7.     case    (a<>{},    {Yes},{ROAD3:=@getchar(a,1,80)},
  8.             {No},{setTEL});
  9.     };
  10.  
  11. %HOKKAI{
  12.     SNDMSG({erande.snd});
  13.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  14.         ,,
  15.         { 札  幌 (INS-C)},{ROAD3:={011-809-2026}},
  16.         { 札  幌 (ROAD4)},{ROAD3:={011-898-9425}},
  17.         { 函  館 (ROAD4)},{ROAD3:={0138-32-8380}},
  18.         {直接入力},{setTEL}
  19.         );
  20.     };
  21.  
  22. %TOHOKU{
  23.     SNDMSG({erande.snd});
  24.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  25.         ,,
  26.         { 盛  岡 (INS-C)},{ROAD3:={0196-29-1092}},
  27.         { 仙  台 (INS-C)},{ROAD3:={022-217-1050}},
  28.         { 盛  岡 (ROAD4)},{ROAD3:={0196-51-9143}},
  29.         { 秋  田 (ROAD4)},{ROAD3:={0188-37-7211}},
  30.         { 仙  台 (ROAD4)},{ROAD3:={022-214-1571}},
  31.         { 山  形 (ROAD4)},{ROAD3:={0236-41-1301}},
  32.         {直接入力},{setTEL}
  33.         );
  34.     };
  35.  
  36. %KANTO{
  37.     SNDMSG({erande.snd});
  38.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  39.         ,,
  40.         { 宇都宮 (INS-C)},{ROAD3:={0286-51-2120}},
  41.         { 東  京 (INS-C)},{ROAD3:={03-5703-7276}},
  42.         { 所  沢 (INS-C)},{ROAD3:={0429-20-1190}},
  43.         { 川  崎 (INS-C)},{ROAD3:={044-740-1069}},
  44.         { 横  浜 (INS-C)},{ROAD3:={045-290-1826}},
  45.         { 浦  和 (INS-C)},{ROAD3:={048-830-1437}},
  46.         { 宇都宮 (V.32) },{ROAD3:={0286-38-9942}},
  47.         { 平  塚 (V.32) },{ROAD3:={0463-24-4822}},
  48.         { 東  京 (MNP10)},{ROAD3:={03-5703-2918}},
  49.         { 水  戸 (ROAD4)},{ROAD3:={029-228-5521}},
  50.         { 所  沢 (ROAD4)},{ROAD3:={0429-39-5237}},
  51.         { 松  戸 (ROAD4)},{ROAD3:={0473-60-2201}},
  52.         { 高  崎 (ROAD4)},{ROAD3:={0273-27-4090}},
  53.         { 町  田 (ROAD4)},{ROAD3:={0427-99-5595}},
  54.         { 筑  波 (ROAD4)},{ROAD3:={0298-55-2826}},
  55.         { 東 京A (ROAD4)},{ROAD3:={03-5710-6400}},
  56.         { 東 京B (ROAD4)},{ROAD3:={03-5710-5300}},
  57.         { 稲  城 (ROAD4)},{ROAD3:={0423-78-9642}},
  58.         { 調　布 (ROAD4)},{ROAD3:={0424-41-6551}},
  59.         { 八王子 (ROAD4)},{ROAD3:={0426-23-7857}},
  60.         { 千  葉 (ROAD4)},{ROAD3:={043-299-3350}},
  61.         { 川  崎 (ROAD4)},{ROAD3:={044-798-7000}},
  62.         { 横  浜 (ROAD4)},{ROAD3:={045-320-7470}},
  63.         { 藤　沢 (ROAD4)},{ROAD3:={0466-24-0150}},
  64.         { 浦  和 (ROAD4)},{ROAD3:={048-825-4981}},
  65.         {直接入力},{setTEL}
  66.         );
  67.     };
  68.  
  69. %TYUBU    {
  70.     SNDMSG({erande.snd});
  71.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  72.         ,,
  73.         { 名古屋 (INS-C)},{ROAD3:={052-229-1475}},
  74.         { 岐  阜 (INS-C)},{ROAD3:={058-255-0036}},
  75.         { 金  沢 (INS-C)},{ROAD3:={0762-33-8456}},
  76.         { 富  山 (INS-C)},{ROAD3:={0764-55-9005}},
  77.         { 新  潟 (ROAD4)},{ROAD3:={025-244-4671}},
  78.         { 長  野 (ROAD4)},{ROAD3:={0262-43-1733}},
  79.         { 名古屋 (ROAD4)},{ROAD3:={052-232-4540}},
  80.         { 浜　松 (ROAD4)},{ROAD3:={053-458-4388}},
  81.         { 静  岡 (ROAD4)},{ROAD3:={054-251-9233}},
  82.         { 甲  府 (ROAD4)},{ROAD3:={0552-35-9300}},
  83.         { 沼  津 (ROAD4)},{ROAD3:={0559-25-2226}},
  84.         { 岐  阜 (ROAD4)},{ROAD3:={058-253-8419}},
  85.         { 豊  田 (ROAD4)},{ROAD3:={0565-26-9811}},
  86.         { 四日市 (ROAD4)},{ROAD3:={0593-54-9043}},
  87.         { 泉佐野 (ROAD4)},{ROAD3:={0724-64-0353}},
  88.         { 池　田 (ROAD4)},{ROAD3:={0727-30-5500}},
  89.         { 金  沢 (ROAD4)},{ROAD3:={0762-62-5154}},
  90.         { 富  山 (ROAD4)},{ROAD3:={0764-54-4826}},
  91.         { 福  井 (ROAD4)},{ROAD3:={0776-25-0437}},
  92.         {直接入力},{setTEL}
  93.         );
  94.     };
  95.  
  96. %KINKI    {
  97.     SNDMSG({erande.snd});
  98.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  99.         ,,
  100.         { 大  阪 (INS-C)},{ROAD3:={06-920-2137}},
  101.         {   堺   (INS-C)},{ROAD3:={0722-25-2732}},
  102.         {   堺   (V.32) },{ROAD3:={0722-27-0624}},
  103.         { 和歌山 (V.32) },{ROAD3:={0734-74-7009}},
  104.         { 大  阪 (MNP10)},{ROAD3:={06-947-7906}},
  105.         { 大  阪 (ROAD4)},{ROAD3:={06-944-4660}},
  106.         { 茨  木 (ROAD4)},{ROAD3:={0726-24-9862}},
  107.         { 枚  方 (ROAD4)},{ROAD3:={0720-45-1911}},
  108.         { 奈  良 (ROAD4)},{ROAD3:={0742-35-8191}},
  109.         { 京  都 (ROAD4)},{ROAD3:={075-213-5720}},
  110.         { 大　津 (ROAD4)},{ROAD3:={0775-27-3500}},
  111.         {神戸･明石(ROAD4},{ROAD3:={078-936-9890}},
  112.         { 姫　路 (ROAD4)},{ROAD3:={0792-88-7740}},
  113.         {直接入力},{setTEL}
  114.         );
  115.     };
  116.  
  117. %CHUGOKU{
  118.     SNDMSG({erande.snd});
  119.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  120.         ,,
  121.         { 広  島 (INS-C)},{ROAD3:={082-502-0284}},
  122.         { 岡  山 (INS-C)},{ROAD3:={086-234-7230}},
  123.         { 岡  山 (ROAD4)},{ROAD3:={086-221-4956}},
  124.         { 広  島 (ROAD4)},{ROAD3:={082-221-0991}},
  125.         { 山  口 (ROAD4)},{ROAD3:={0839-23-1922}},
  126.         {直接入力},{setTEL}
  127.         );
  128.     };
  129.  
  130. %SHIKOKU{
  131.     SNDMSG({erande.snd});
  132.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  133.         ,,
  134.         { 高  松 (INS-C)},{ROAD3:={0878-26-1507}},
  135.         { 松　江 (ROAD4)},{ROAD3:={0852-24-6672}},
  136.         { 高  松 (ROAD4)},{ROAD3:={0878-26-2096}},
  137.         { 徳  島 (ROAD4)},{ROAD3:={0886-56-9931}},
  138.         { 高  知 (ROAD4)},{ROAD3:={0888-71-6611}},
  139.         {直接入力},{setTEL}
  140.         );
  141.     };
  142.  
  143. %KYUSYU    {
  144.     SNDMSG({erande.snd});
  145.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  146.         ,,
  147.         { 福  岡 (INS-C)},{ROAD3:={092-415-1250}},
  148.         { 福  岡 (ROAD4)},{ROAD3:={092-452-4838}},
  149.         { 北九州 (ROAD4)},{ROAD3:={093-541-7850}},
  150.         { 佐　賀 (ROAD4)},{ROAD3:={0952-28-6901}},
  151.         { 長  崎 (ROAD4)},{ROAD3:={0958-29-0301}},
  152.         { 熊  本 (ROAD4)},{ROAD3:={096-359-1555}},
  153.         { 大  分 (ROAD4)},{ROAD3:={0975-33-0462}},
  154.         { 宮  崎 (ROAD4)},{ROAD3:={0985-24-9500}},
  155.         { 鹿児島 (ROAD4)},{ROAD3:={0992-24-8420}},
  156.         {直接入力},{setTEL}
  157.         );
  158.     };
  159.  
  160. %OKINAWA{
  161.     SNDMSG({erande.snd});
  162.     select({ROAD3/4 のｱｸｾｽﾎﾟｲﾝﾄを選択してネ☆（現在は『}|ROAD3|{』）},
  163.         ,,
  164.         { 那　覇 (ROAD4)},{ROAD3:={098-867-9220}},
  165.         {直接入力},{setTEL}
  166.         );
  167.     };
  168.  
  169. %setNODE{
  170.     SNDMSG({erande.snd});
  171.     footnote({ＲＯＡＤ３／４クセスポイントの電話番号を設定処理中,,,♪});
  172.     select({    ＲＯＡＤ３／４アクセス･ポイント地域を選択してネ☆},
  173.         ,,
  174.         { 北海道 },{HOKKAI},    { 東  北 },{TOHOKU},
  175.         { 関  東 },{KANTO},    { 中  部 },{TYUBU},
  176.         { 近  畿 },{KINKI},    { 中  国 },{CHUGOKU},
  177.         { 四  国 },{SHIKOKU},    { 九  州 },{KYUSYU},
  178.         { 沖  縄 },{OKINAWA},
  179.         {直接入力},{setTEL}
  180.         );
  181.     };
  182.  
  183. var BPS[5];
  184. case(ROAD3,{},{ROAD3:={未設定}});
  185. SNDMSG({erande.snd});
  186. footnote({ｱｸｾｽ･ﾎﾟｲﾝﾄＲＯＡＤ３／４の通信速度の設定処理中,,,♪});
  187. select({    モデムの通信速度を指定してネ☆(^_^)/♪},
  188.     ,,
  189.     {   ４８００ＢＰＳ },{BPS:={4800};baud(BPS);setNODE;},
  190.     {   ９６００ＢＰＳ },{BPS:={9600};baud(BPS);setNODE;},
  191.     { １４４００ＢＰＳ },{BPS:={19200};baud(BPS);setNODE;});
  192.